-- card: 8521 from stack: in
-- bmap block id: 13714
-- flags: 0000
-- background id: 4989
-- name: Parameter 2
----- HyperTalk script -----

on setParameters
  global rotIncrement2,timeIncrement2
  global wheelSpeed,wheelRadius

  put card field "Time Increment" into timeIncrement2
  put card field "Angular Velocity"*(pi/180)*timeIncrement2 into rotIncrement2
  put card field "Wheel Speed" into wheelSpeed
  put card field "Wheel Radius" into wheelRadius
end setParameters


-- part 1 (field)
-- low flags: 02
-- high flags: 0002
-- rect: left=272 top=65 right=82 bottom=312
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Angular Velocity


-- part 2 (field)
-- low flags: 02
-- high flags: 0002
-- rect: left=272 top=85 right=102 bottom=312
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Wheel Speed


-- part 3 (field)
-- low flags: 02
-- high flags: 0002
-- rect: left=272 top=105 right=122 bottom=312
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Wheel Radius
----- HyperTalk script -----
on closeField
  get me
  if it > 100 or it < 10 then
    answer "That value must be between 10 and 100."
    select line 1 of me
  end if
end closefield


-- part 4 (field)
-- low flags: 02
-- high flags: 0002
-- rect: left=272 top=125 right=142 bottom=312
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Time increment


-- part 5 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=11 top=40 right=326 bottom=403
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Help


-- part contents for card part 1
----- text -----
90

-- part contents for card part 2
----- text -----
20

-- part contents for card part 3
----- text -----
30

-- part contents for card part 4
----- text -----
.2

-- part contents for background part 6
----- text -----
Changing values in the top half alters the path of the pen.


-- part contents for card part 5
----- text -----
   The parameters below the gray bar are constants provided for your benefit.  They may not be changed without altering the calculation scripts attached to the card.
  The parameters listed above the bar are variable.    To change any of them, drag across the box holding the value and type the new value.  Pressing <return> will automatically select the value in the next field.
   Any change in the controlled parameters will be reflected as a change in the outcome of the experiment.  Feel free to play around.  
   Try these parameters:
      Ang Vel:           45        90
      Cart Speed:       20        20
      Wheel Rad:        30        30